home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getsho1r / calendar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-05  |  34.4 KB  |  1,077 lines
  1. VERSION 5.00
  2. Begin VB.Form Calendar 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Calendar"
  6.    ClientHeight    =   3030
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   2910
  10.    Icon            =   "Calendar.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3030
  15.    ScaleWidth      =   2910
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "Reset"
  19.       Default         =   -1  'True
  20.       Height          =   240
  21.       Left            =   2250
  22.       TabIndex        =   48
  23.       Top             =   135
  24.       Width           =   600
  25.    End
  26.    Begin VB.HScrollBar HScroll2 
  27.       Height          =   375
  28.       Left            =   1710
  29.       Max             =   1500
  30.       Min             =   -1500
  31.       TabIndex        =   47
  32.       Top             =   45
  33.       Width           =   420
  34.    End
  35.    Begin VB.HScrollBar HScroll1 
  36.       Height          =   285
  37.       Left            =   1260
  38.       Max             =   1500
  39.       Min             =   -1500
  40.       TabIndex        =   45
  41.       Top             =   90
  42.       Width           =   420
  43.    End
  44.    Begin VB.Label Label4 
  45.       Alignment       =   2  'Center
  46.       BorderStyle     =   1  'Fixed Single
  47.       Caption         =   "Label4"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00FF0000&
  58.       Height          =   285
  59.       Left            =   45
  60.       TabIndex        =   46
  61.       Top             =   495
  62.       Width           =   2805
  63.    End
  64.    Begin VB.Label Label3 
  65.       Alignment       =   2  'Center
  66.       BackColor       =   &H00C0E0FF&
  67.       BackStyle       =   0  'Transparent
  68.       BeginProperty Font 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   9.75
  71.          Charset         =   0
  72.          Weight          =   700
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       ForeColor       =   &H00808000&
  78.       Height          =   285
  79.       Index           =   36
  80.       Left            =   450
  81.       TabIndex        =   44
  82.       Top             =   2745
  83.       Width           =   375
  84.    End
  85.    Begin VB.Label Label3 
  86.       Alignment       =   2  'Center
  87.       BackColor       =   &H00C0E0FF&
  88.       BackStyle       =   0  'Transparent
  89.       BeginProperty Font 
  90.          Name            =   "MS Sans Serif"
  91.          Size            =   9.75
  92.          Charset         =   0
  93.          Weight          =   700
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H00808000&
  99.       Height          =   285
  100.       Index           =   35
  101.       Left            =   45
  102.       TabIndex        =   43
  103.       Top             =   2745
  104.       Width           =   375
  105.    End
  106.    Begin VB.Label Label3 
  107.       Alignment       =   2  'Center
  108.       BackColor       =   &H00C0E0FF&
  109.       BackStyle       =   0  'Transparent
  110.       BeginProperty Font 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   9.75
  113.          Charset         =   0
  114.          Weight          =   700
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       ForeColor       =   &H00808000&
  120.       Height          =   285
  121.       Index           =   34
  122.       Left            =   2475
  123.       TabIndex        =   42
  124.       Top             =   2430
  125.       Width           =   375
  126.    End
  127.    Begin VB.Label Label3 
  128.       Alignment       =   2  'Center
  129.       BackColor       =   &H00C0E0FF&
  130.       BackStyle       =   0  'Transparent
  131.       BeginProperty Font 
  132.          Name            =   "MS Sans Serif"
  133.          Size            =   9.75
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       ForeColor       =   &H00808000&
  141.       Height          =   285
  142.       Index           =   33
  143.       Left            =   2070
  144.       TabIndex        =   41
  145.       Top             =   2430
  146.       Width           =   375
  147.    End
  148.    Begin VB.Label Label3 
  149.       Alignment       =   2  'Center
  150.       BackColor       =   &H00C0E0FF&
  151.       BackStyle       =   0  'Transparent
  152.       BeginProperty Font 
  153.          Name            =   "MS Sans Serif"
  154.          Size            =   9.75
  155.          Charset         =   0
  156.          Weight          =   700
  157.          Underline       =   0   'False
  158.          Italic          =   0   'False
  159.          Strikethrough   =   0   'False
  160.       EndProperty
  161.       ForeColor       =   &H00808000&
  162.       Height          =   285
  163.       Index           =   32
  164.       Left            =   1665
  165.       TabIndex        =   40
  166.       Top             =   2430
  167.       Width           =   375
  168.    End
  169.    Begin VB.Label Label3 
  170.       Alignment       =   2  'Center
  171.       BackColor       =   &H00C0E0FF&
  172.       BackStyle       =   0  'Transparent
  173.       BeginProperty Font 
  174.          Name            =   "MS Sans Serif"
  175.          Size            =   9.75
  176.          Charset         =   0
  177.          Weight          =   700
  178.          Underline       =   0   'False
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       ForeColor       =   &H00808000&
  183.       Height          =   285
  184.       Index           =   31
  185.       Left            =   1260
  186.       TabIndex        =   39
  187.       Top             =   2430
  188.       Width           =   375
  189.    End
  190.    Begin VB.Label Label3 
  191.       Alignment       =   2  'Center
  192.       BackColor       =   &H00C0E0FF&
  193.       BackStyle       =   0  'Transparent
  194.       BeginProperty Font 
  195.          Name            =   "MS Sans Serif"
  196.          Size            =   9.75
  197.          Charset         =   0
  198.          Weight          =   700
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       ForeColor       =   &H00808000&
  204.       Height          =   285
  205.       Index           =   30
  206.       Left            =   855
  207.       TabIndex        =   38
  208.       Top             =   2430
  209.       Width           =   375
  210.    End
  211.    Begin VB.Label Label3 
  212.       Alignment       =   2  'Center
  213.       BackColor       =   &H00C0E0FF&
  214.       BackStyle       =   0  'Transparent
  215.       BeginProperty Font 
  216.          Name            =   "MS Sans Serif"
  217.          Size            =   9.75
  218.          Charset         =   0
  219.          Weight          =   700
  220.          Underline       =   0   'False
  221.          Italic          =   0   'False
  222.          Strikethrough   =   0   'False
  223.       EndProperty
  224.       ForeColor       =   &H00808000&
  225.       Height          =   285
  226.       Index           =   29
  227.       Left            =   450
  228.       TabIndex        =   37
  229.       Top             =   2430
  230.       Width           =   375
  231.    End
  232.    Begin VB.Label Label3 
  233.       Alignment       =   2  'Center
  234.       BackColor       =   &H00C0E0FF&
  235.       BackStyle       =   0  'Transparent
  236.       BeginProperty Font 
  237.          Name            =   "MS Sans Serif"
  238.          Size            =   9.75
  239.          Charset         =   0
  240.          Weight          =   700
  241.          Underline       =   0   'False
  242.          Italic          =   0   'False
  243.          Strikethrough   =   0   'False
  244.       EndProperty
  245.       ForeColor       =   &H00808000&
  246.       Height          =   285
  247.       Index           =   28
  248.       Left            =   45
  249.       TabIndex        =   36
  250.       Top             =   2430
  251.       Width           =   375
  252.    End
  253.    Begin VB.Label Label3 
  254.       Alignment       =   2  'Center
  255.       BackColor       =   &H00C0E0FF&
  256.       BackStyle       =   0  'Transparent
  257.       BeginProperty Font 
  258.          Name            =   "MS Sans Serif"
  259.          Size            =   9.75
  260.          Charset         =   0
  261.          Weight          =   700
  262.          Underline       =   0   'False
  263.          Italic          =   0   'False
  264.          Strikethrough   =   0   'False
  265.       EndProperty
  266.       ForeColor       =   &H00808000&
  267.       Height          =   285
  268.       Index           =   27
  269.       Left            =   2475
  270.       TabIndex        =   35
  271.       Top             =   2115
  272.       Width           =   375
  273.    End
  274.    Begin VB.Label Label3 
  275.       Alignment       =   2  'Center
  276.       BackColor       =   &H00C0E0FF&
  277.       BackStyle       =   0  'Transparent
  278.       BeginProperty Font 
  279.          Name            =   "MS Sans Serif"
  280.          Size            =   9.75
  281.          Charset         =   0
  282.          Weight          =   700
  283.          Underline       =   0   'False
  284.          Italic          =   0   'False
  285.          Strikethrough   =   0   'False
  286.       EndProperty
  287.       ForeColor       =   &H00808000&
  288.       Height          =   285
  289.       Index           =   26
  290.       Left            =   2070
  291.       TabIndex        =   34
  292.       Top             =   2115
  293.       Width           =   375
  294.    End
  295.    Begin VB.Label Label3 
  296.       Alignment       =   2  'Center
  297.       BackColor       =   &H00C0E0FF&
  298.       BackStyle       =   0  'Transparent
  299.       BeginProperty Font 
  300.          Name            =   "MS Sans Serif"
  301.          Size            =   9.75
  302.          Charset         =   0
  303.          Weight          =   700
  304.          Underline       =   0   'False
  305.          Italic          =   0   'False
  306.          Strikethrough   =   0   'False
  307.       EndProperty
  308.       ForeColor       =   &H00808000&
  309.       Height          =   285
  310.       Index           =   25
  311.       Left            =   1665
  312.       TabIndex        =   33
  313.       Top             =   2115
  314.       Width           =   375
  315.    End
  316.    Begin VB.Label Label3 
  317.       Alignment       =   2  'Center
  318.       BackColor       =   &H00C0E0FF&
  319.       BackStyle       =   0  'Transparent
  320.       BeginProperty Font 
  321.          Name            =   "MS Sans Serif"
  322.          Size            =   9.75
  323.          Charset         =   0
  324.          Weight          =   700
  325.          Underline       =   0   'False
  326.          Italic          =   0   'False
  327.          Strikethrough   =   0   'False
  328.       EndProperty
  329.       ForeColor       =   &H00808000&
  330.       Height          =   285
  331.       Index           =   24
  332.       Left            =   1260
  333.       TabIndex        =   32
  334.       Top             =   2115
  335.       Width           =   375
  336.    End
  337.    Begin VB.Label Label3 
  338.       Alignment       =   2  'Center
  339.       BackColor       =   &H00C0E0FF&
  340.       BackStyle       =   0  'Transparent
  341.       BeginProperty Font 
  342.          Name            =   "MS Sans Serif"
  343.          Size            =   9.75
  344.          Charset         =   0
  345.          Weight          =   700
  346.          Underline       =   0   'False
  347.          Italic          =   0   'False
  348.          Strikethrough   =   0   'False
  349.       EndProperty
  350.       ForeColor       =   &H00808000&
  351.       Height          =   285
  352.       Index           =   23
  353.       Left            =   855
  354.       TabIndex        =   31
  355.       Top             =   2115
  356.       Width           =   375
  357.    End
  358.    Begin VB.Label Label3 
  359.       Alignment       =   2  'Center
  360.       BackColor       =   &H00C0E0FF&
  361.       BackStyle       =   0  'Transparent
  362.       BeginProperty Font 
  363.          Name            =   "MS Sans Serif"
  364.          Size            =   9.75
  365.          Charset         =   0
  366.          Weight          =   700
  367.          Underline       =   0   'False
  368.          Italic          =   0   'False
  369.          Strikethrough   =   0   'False
  370.       EndProperty
  371.       ForeColor       =   &H00808000&
  372.       Height          =   285
  373.       Index           =   22
  374.       Left            =   450
  375.       TabIndex        =   30
  376.       Top             =   2115
  377.       Width           =   375
  378.    End
  379.    Begin VB.Label Label3 
  380.       Alignment       =   2  'Center
  381.       BackColor       =   &H00C0E0FF&
  382.       BackStyle       =   0  'Transparent
  383.       BeginProperty Font 
  384.          Name            =   "MS Sans Serif"
  385.          Size            =   9.75
  386.          Charset         =   0
  387.          Weight          =   700
  388.          Underline       =   0   'False
  389.          Italic          =   0   'False
  390.          Strikethrough   =   0   'False
  391.       EndProperty
  392.       ForeColor       =   &H00808000&
  393.       Height          =   285
  394.       Index           =   21
  395.       Left            =   45
  396.       TabIndex        =   29
  397.       Top             =   2115
  398.       Width           =   375
  399.    End
  400.    Begin VB.Label Label3 
  401.       Alignment       =   2  'Center
  402.       BackColor       =   &H00C0E0FF&
  403.       BackStyle       =   0  'Transparent
  404.       BeginProperty Font 
  405.          Name            =   "MS Sans Serif"
  406.          Size            =   9.75
  407.          Charset         =   0
  408.          Weight          =   700
  409.          Underline       =   0   'False
  410.          Italic          =   0   'False
  411.          Strikethrough   =   0   'False
  412.       EndProperty
  413.       ForeColor       =   &H00808000&
  414.       Height          =   285
  415.       Index           =   20
  416.       Left            =   2475
  417.       TabIndex        =   28
  418.       Top             =   1800
  419.       Width           =   375
  420.    End
  421.    Begin VB.Label Label3 
  422.       Alignment       =   2  'Center
  423.       BackColor       =   &H00C0E0FF&
  424.       BackStyle       =   0  'Transparent
  425.       BeginProperty Font 
  426.          Name            =   "MS Sans Serif"
  427.          Size            =   9.75
  428.          Charset         =   0
  429.          Weight          =   700
  430.          Underline       =   0   'False
  431.          Italic          =   0   'False
  432.          Strikethrough   =   0   'False
  433.       EndProperty
  434.       ForeColor       =   &H00808000&
  435.       Height          =   285
  436.       Index           =   19
  437.       Left            =   2070
  438.       TabIndex        =   27
  439.       Top             =   1800
  440.       Width           =   375
  441.    End
  442.    Begin VB.Label Label3 
  443.       Alignment       =   2  'Center
  444.       BackColor       =   &H00C0E0FF&
  445.       BackStyle       =   0  'Transparent
  446.       BeginProperty Font 
  447.          Name            =   "MS Sans Serif"
  448.          Size            =   9.75
  449.          Charset         =   0
  450.          Weight          =   700
  451.          Underline       =   0   'False
  452.          Italic          =   0   'False
  453.          Strikethrough   =   0   'False
  454.       EndProperty
  455.       ForeColor       =   &H00808000&
  456.       Height          =   285
  457.       Index           =   18
  458.       Left            =   1665
  459.       TabIndex        =   26
  460.       Top             =   1800
  461.       Width           =   375
  462.    End
  463.    Begin VB.Label Label3 
  464.       Alignment       =   2  'Center
  465.       BackColor       =   &H00C0E0FF&
  466.       BackStyle       =   0  'Transparent
  467.       BeginProperty Font 
  468.          Name            =   "MS Sans Serif"
  469.          Size            =   9.75
  470.          Charset         =   0
  471.          Weight          =   700
  472.          Underline       =   0   'False
  473.          Italic          =   0   'False
  474.          Strikethrough   =   0   'False
  475.       EndProperty
  476.       ForeColor       =   &H00808000&
  477.       Height          =   285
  478.       Index           =   17
  479.       Left            =   1260
  480.       TabIndex        =   25
  481.       Top             =   1800
  482.       Width           =   375
  483.    End
  484.    Begin VB.Label Label3 
  485.       Alignment       =   2  'Center
  486.       BackColor       =   &H00C0E0FF&
  487.       BackStyle       =   0  'Transparent
  488.       BeginProperty Font 
  489.          Name            =   "MS Sans Serif"
  490.          Size            =   9.75
  491.          Charset         =   0
  492.          Weight          =   700
  493.          Underline       =   0   'False
  494.          Italic          =   0   'False
  495.          Strikethrough   =   0   'False
  496.       EndProperty
  497.       ForeColor       =   &H00808000&
  498.       Height          =   285
  499.       Index           =   16
  500.       Left            =   855
  501.       TabIndex        =   24
  502.       Top             =   1800
  503.       Width           =   375
  504.    End
  505.    Begin VB.Label Label3 
  506.       Alignment       =   2  'Center
  507.       BackColor       =   &H00C0E0FF&
  508.       BackStyle       =   0  'Transparent
  509.       BeginProperty Font 
  510.          Name            =   "MS Sans Serif"
  511.          Size            =   9.75
  512.          Charset         =   0
  513.          Weight          =   700
  514.          Underline       =   0   'False
  515.          Italic          =   0   'False
  516.          Strikethrough   =   0   'False
  517.       EndProperty
  518.       ForeColor       =   &H00808000&
  519.       Height          =   285
  520.       Index           =   15
  521.       Left            =   450
  522.       TabIndex        =   23
  523.       Top             =   1800
  524.       Width           =   375
  525.    End
  526.    Begin VB.Label Label3 
  527.       Alignment       =   2  'Center
  528.       BackColor       =   &H00C0E0FF&
  529.       BackStyle       =   0  'Transparent
  530.       BeginProperty Font 
  531.          Name            =   "MS Sans Serif"
  532.          Size            =   9.75
  533.          Charset         =   0
  534.          Weight          =   700
  535.          Underline       =   0   'False
  536.          Italic          =   0   'False
  537.          Strikethrough   =   0   'False
  538.       EndProperty
  539.       ForeColor       =   &H00808000&
  540.       Height          =   285
  541.       Index           =   14
  542.       Left            =   45
  543.       TabIndex        =   22
  544.       Top             =   1800
  545.       Width           =   375
  546.    End
  547.    Begin VB.Label Label3 
  548.       Alignment       =   2  'Center
  549.       BackColor       =   &H00C0E0FF&
  550.       BackStyle       =   0  'Transparent
  551.       BeginProperty Font 
  552.          Name            =   "MS Sans Serif"
  553.          Size            =   9.75
  554.          Charset         =   0
  555.          Weight          =   700
  556.          Underline       =   0   'False
  557.          Italic          =   0   'False
  558.          Strikethrough   =   0   'False
  559.       EndProperty
  560.       ForeColor       =   &H00808000&
  561.       Height          =   285
  562.       Index           =   13
  563.       Left            =   2475
  564.       TabIndex        =   21
  565.       Top             =   1485
  566.       Width           =   375
  567.    End
  568.    Begin VB.Label Label3 
  569.       Alignment       =   2  'Center
  570.       BackColor       =   &H00C0E0FF&
  571.       BackStyle       =   0  'Transparent
  572.       BeginProperty Font 
  573.          Name            =   "MS Sans Serif"
  574.          Size            =   9.75
  575.          Charset         =   0
  576.          Weight          =   700
  577.          Underline       =   0   'False
  578.          Italic          =   0   'False
  579.          Strikethrough   =   0   'False
  580.       EndProperty
  581.       ForeColor       =   &H00808000&
  582.       Height          =   285
  583.       Index           =   12
  584.       Left            =   2070
  585.       TabIndex        =   20
  586.       Top             =   1485
  587.       Width           =   375
  588.    End
  589.    Begin VB.Label Label3 
  590.       Alignment       =   2  'Center
  591.       BackColor       =   &H00C0E0FF&
  592.       BackStyle       =   0  'Transparent
  593.       BeginProperty Font 
  594.          Name            =   "MS Sans Serif"
  595.          Size            =   9.75
  596.          Charset         =   0
  597.          Weight          =   700
  598.          Underline       =   0   'False
  599.          Italic          =   0   'False
  600.          Strikethrough   =   0   'False
  601.       EndProperty
  602.       ForeColor       =   &H00808000&
  603.       Height          =   285
  604.       Index           =   11
  605.       Left            =   1665
  606.       TabIndex        =   19
  607.       Top             =   1485
  608.       Width           =   375
  609.    End
  610.    Begin VB.Label Label3 
  611.       Alignment       =   2  'Center
  612.       BackColor       =   &H00C0E0FF&
  613.       BackStyle       =   0  'Transparent
  614.       BeginProperty Font 
  615.          Name            =   "MS Sans Serif"
  616.          Size            =   9.75
  617.          Charset         =   0
  618.          Weight          =   700
  619.          Underline       =   0   'False
  620.          Italic          =   0   'False
  621.          Strikethrough   =   0   'False
  622.       EndProperty
  623.       ForeColor       =   &H00808000&
  624.       Height          =   285
  625.       Index           =   10
  626.       Left            =   1260
  627.       TabIndex        =   18
  628.       Top             =   1485
  629.       Width           =   375
  630.    End
  631.    Begin VB.Label Label3 
  632.       Alignment       =   2  'Center
  633.       BackColor       =   &H00C0E0FF&
  634.       BackStyle       =   0  'Transparent
  635.       BeginProperty Font 
  636.          Name            =   "MS Sans Serif"
  637.          Size            =   9.75
  638.          Charset         =   0
  639.          Weight          =   700
  640.          Underline       =   0   'False
  641.          Italic          =   0   'False
  642.          Strikethrough   =   0   'False
  643.       EndProperty
  644.       ForeColor       =   &H00808000&
  645.       Height          =   285
  646.       Index           =   9
  647.       Left            =   855
  648.       TabIndex        =   17
  649.       Top             =   1485
  650.       Width           =   375
  651.    End
  652.    Begin VB.Label Label3 
  653.       Alignment       =   2  'Center
  654.       BackColor       =   &H00C0E0FF&
  655.       BackStyle       =   0  'Transparent
  656.       BeginProperty Font 
  657.          Name            =   "MS Sans Serif"
  658.          Size            =   9.75
  659.          Charset         =   0
  660.          Weight          =   700
  661.          Underline       =   0   'False
  662.          Italic          =   0   'False
  663.          Strikethrough   =   0   'False
  664.       EndProperty
  665.       ForeColor       =   &H00808000&
  666.       Height          =   285
  667.       Index           =   8
  668.       Left            =   450
  669.       TabIndex        =   16
  670.       Top             =   1485
  671.       Width           =   375
  672.    End
  673.    Begin VB.Label Label3 
  674.       Alignment       =   2  'Center
  675.       BackColor       =   &H00C0E0FF&
  676.       BackStyle       =   0  'Transparent
  677.       BeginProperty Font 
  678.          Name            =   "MS Sans Serif"
  679.          Size            =   9.75
  680.          Charset         =   0
  681.          Weight          =   700
  682.          Underline       =   0   'False
  683.          Italic          =   0   'False
  684.          Strikethrough   =   0   'False
  685.       EndProperty
  686.       ForeColor       =   &H00808000&
  687.       Height          =   285
  688.       Index           =   7
  689.       Left            =   45
  690.       TabIndex        =   15
  691.       Top             =   1485
  692.       Width           =   375
  693.    End
  694.    Begin VB.Label Label3 
  695.       Alignment       =   2  'Center
  696.       BackColor       =   &H00C0E0FF&
  697.       BackStyle       =   0  'Transparent
  698.       BeginProperty Font 
  699.          Name            =   "MS Sans Serif"
  700.          Size            =   9.75
  701.          Charset         =   0
  702.          Weight          =   700
  703.          Underline       =   0   'False
  704.          Italic          =   0   'False
  705.          Strikethrough   =   0   'False
  706.       EndProperty
  707.       ForeColor       =   &H00808000&
  708.       Height          =   285
  709.       Index           =   6
  710.       Left            =   2430
  711.       TabIndex        =   14
  712.       Top             =   1170
  713.       Width           =   375
  714.    End
  715.    Begin VB.Label Label3 
  716.       Alignment       =   2  'Center
  717.       BackColor       =   &H00C0E0FF&
  718.       BackStyle       =   0  'Transparent
  719.       BeginProperty Font 
  720.          Name            =   "MS Sans Serif"
  721.          Size            =   9.75
  722.          Charset         =   0
  723.          Weight          =   700
  724.          Underline       =   0   'False
  725.          Italic          =   0   'False
  726.          Strikethrough   =   0   'False
  727.       EndProperty
  728.       ForeColor       =   &H00808000&
  729.       Height          =   285
  730.       Index           =   5
  731.       Left            =   2070
  732.       TabIndex        =   13
  733.       Top             =   1170
  734.       Width           =   375
  735.    End
  736.    Begin VB.Label Label3 
  737.       Alignment       =   2  'Center
  738.       BackColor       =   &H00C0E0FF&
  739.       BackStyle       =   0  'Transparent
  740.       BeginProperty Font 
  741.          Name            =   "MS Sans Serif"
  742.          Size            =   9.75
  743.          Charset         =   0
  744.          Weight          =   700
  745.          Underline       =   0   'False
  746.          Italic          =   0   'False
  747.          Strikethrough   =   0   'False
  748.       EndProperty
  749.       ForeColor       =   &H00808000&
  750.       Height          =   285
  751.       Index           =   4
  752.       Left            =   1665
  753.       TabIndex        =   12
  754.       Top             =   1170
  755.       Width           =   375
  756.    End
  757.    Begin VB.Label Label3 
  758.       Alignment       =   2  'Center
  759.       BackColor       =   &H00C0E0FF&
  760.       BackStyle       =   0  'Transparent
  761.       BeginProperty Font 
  762.          Name            =   "MS Sans Serif"
  763.          Size            =   9.75
  764.          Charset         =   0
  765.          Weight          =   700
  766.          Underline       =   0   'False
  767.          Italic          =   0   'False
  768.          Strikethrough   =   0   'False
  769.       EndProperty
  770.       ForeColor       =   &H00808000&
  771.       Height          =   285
  772.       Index           =   3
  773.       Left            =   1260
  774.       TabIndex        =   11
  775.       Top             =   1170
  776.       Width           =   375
  777.    End
  778.    Begin VB.Label Label3 
  779.       Alignment       =   2  'Center
  780.       BackColor       =   &H00C0E0FF&
  781.       BackStyle       =   0  'Transparent
  782.       BeginProperty Font 
  783.          Name            =   "MS Sans Serif"
  784.          Size            =   9.75
  785.          Charset         =   0
  786.          Weight          =   700
  787.          Underline       =   0   'False
  788.          Italic          =   0   'False
  789.          Strikethrough   =   0   'False
  790.       EndProperty
  791.       ForeColor       =   &H00808000&
  792.       Height          =   285
  793.       Index           =   2
  794.       Left            =   855
  795.       TabIndex        =   10
  796.       Top             =   1170
  797.       Width           =   375
  798.    End
  799.    Begin VB.Label Label3 
  800.       Alignment       =   2  'Center
  801.       BackColor       =   &H00C0E0FF&
  802.       BackStyle       =   0  'Transparent
  803.       BeginProperty Font 
  804.          Name            =   "MS Sans Serif"
  805.          Size            =   9.75
  806.          Charset         =   0
  807.          Weight          =   700
  808.          Underline       =   0   'False
  809.          Italic          =   0   'False
  810.          Strikethrough   =   0   'False
  811.       EndProperty
  812.       ForeColor       =   &H00808000&
  813.       Height          =   285
  814.       Index           =   1
  815.       Left            =   450
  816.       TabIndex        =   9
  817.       Top             =   1170
  818.       Width           =   375
  819.    End
  820.    Begin VB.Label Label3 
  821.       Alignment       =   2  'Center
  822.       BackColor       =   &H00C0E0FF&
  823.       BackStyle       =   0  'Transparent
  824.       BeginProperty Font 
  825.          Name            =   "MS Sans Serif"
  826.          Size            =   9.75
  827.          Charset         =   0
  828.          Weight          =   700
  829.          Underline       =   0   'False
  830.          Italic          =   0   'False
  831.          Strikethrough   =   0   'False
  832.       EndProperty
  833.       ForeColor       =   &H00808000&
  834.       Height          =   285
  835.       Index           =   0
  836.       Left            =   45
  837.       TabIndex        =   8
  838.       Top             =   1170
  839.       Width           =   375
  840.    End
  841.    Begin VB.Label Label2 
  842.       Alignment       =   2  'Center
  843.       BorderStyle     =   1  'Fixed Single
  844.       Caption         =   "September"
  845.       BeginProperty Font 
  846.          Name            =   "MS Sans Serif"
  847.          Size            =   8.25
  848.          Charset         =   0
  849.          Weight          =   700
  850.          Underline       =   0   'False
  851.          Italic          =   0   'False
  852.          Strikethrough   =   0   'False
  853.       EndProperty
  854.       ForeColor       =   &H00FF0000&
  855.       Height          =   285
  856.       Left            =   45
  857.       TabIndex        =   7
  858.       Top             =   90
  859.       Width           =   1185
  860.    End
  861.    Begin VB.Label Label1 
  862.       Alignment       =   2  'Center
  863.       BackColor       =   &H00800080&
  864.       BorderStyle     =   1  'Fixed Single
  865.       Caption         =   "Su"
  866.       BeginProperty Font 
  867.          Name            =   "MS Sans Serif"
  868.          Size            =   8.25
  869.          Charset         =   0
  870.          Weight          =   700
  871.          Underline       =   0   'False
  872.          Italic          =   0   'False
  873.          Strikethrough   =   0   'False
  874.       EndProperty
  875.       ForeColor       =   &H0080FF80&
  876.       Height          =   285
  877.       Index           =   6
  878.       Left            =   45
  879.       TabIndex        =   6
  880.       Top             =   855
  881.       Width           =   375
  882.    End
  883.    Begin VB.Label Label1 
  884.       Alignment       =   2  'Center
  885.       BackColor       =   &H00800080&
  886.       BorderStyle     =   1  'Fixed Single
  887.       Caption         =   "Sa"
  888.       BeginProperty Font 
  889.          Name            =   "MS Sans Serif"
  890.          Size            =   8.25
  891.          Charset         =   0
  892.          Weight          =   700
  893.          Underline       =   0   'False
  894.          Italic          =   0   'False
  895.          Strikethrough   =   0   'False
  896.       EndProperty
  897.       ForeColor       =   &H0080FF80&
  898.       Height          =   285
  899.       Index           =   5
  900.       Left            =   2475
  901.       TabIndex        =   5
  902.       Top             =   855
  903.       Width           =   375
  904.    End
  905.    Begin VB.Label Label1 
  906.       Alignment       =   2  'Center
  907.       BackColor       =   &H00800080&
  908.       BorderStyle     =   1  'Fixed Single
  909.       Caption         =   "Fr"
  910.       BeginProperty Font 
  911.          Name            =   "MS Sans Serif"
  912.          Size            =   8.25
  913.          Charset         =   0
  914.          Weight          =   700
  915.          Underline       =   0   'False
  916.          Italic          =   0   'False
  917.          Strikethrough   =   0   'False
  918.       EndProperty
  919.       ForeColor       =   &H0080FF80&
  920.       Height          =   285
  921.       Index           =   4
  922.       Left            =   2070
  923.       TabIndex        =   4
  924.       Top             =   855
  925.       Width           =   375
  926.    End
  927.    Begin VB.Label Label1 
  928.       Alignment       =   2  'Center
  929.       BackColor       =   &H00800080&
  930.       BorderStyle     =   1  'Fixed Single
  931.       Caption         =   "Th"
  932.       BeginProperty Font 
  933.          Name            =   "MS Sans Serif"
  934.          Size            =   8.25
  935.          Charset         =   0
  936.          Weight          =   700
  937.          Underline       =   0   'False
  938.          Italic          =   0   'False
  939.          Strikethrough   =   0   'False
  940.       EndProperty
  941.       ForeColor       =   &H0080FF80&
  942.       Height          =   285
  943.       Index           =   3
  944.       Left            =   1665
  945.       TabIndex        =   3
  946.       Top             =   855
  947.       Width           =   375
  948.    End
  949.    Begin VB.Label Label1 
  950.       Alignment       =   2  'Center
  951.       BackColor       =   &H00800080&
  952.       BorderStyle     =   1  'Fixed Single
  953.       Caption         =   "We"
  954.       BeginProperty Font 
  955.          Name            =   "MS Sans Serif"
  956.          Size            =   8.25
  957.          Charset         =   0
  958.          Weight          =   700
  959.          Underline       =   0   'False
  960.          Italic          =   0   'False
  961.          Strikethrough   =   0   'False
  962.       EndProperty
  963.       ForeColor       =   &H0080FF80&
  964.       Height          =   285
  965.       Index           =   2
  966.       Left            =   1260
  967.       TabIndex        =   2
  968.       Top             =   855
  969.       Width           =   375
  970.    End
  971.    Begin VB.Label Label1 
  972.       Alignment       =   2  'Center
  973.       BackColor       =   &H00800080&
  974.       BorderStyle     =   1  'Fixed Single
  975.       Caption         =   "Tu"
  976.       BeginProperty Font 
  977.          Name            =   "MS Sans Serif"
  978.          Size            =   8.25
  979.          Charset         =   0
  980.          Weight          =   700
  981.          Underline       =   0   'False
  982.          Italic          =   0   'False
  983.          Strikethrough   =   0   'False
  984.       EndProperty
  985.       ForeColor       =   &H0080FF80&
  986.       Height          =   285
  987.       Index           =   1
  988.       Left            =   855
  989.       TabIndex        =   1
  990.       Top             =   855
  991.       Width           =   375
  992.    End
  993.    Begin VB.Label Label1 
  994.       Alignment       =   2  'Center
  995.       BackColor       =   &H00800080&
  996.       BorderStyle     =   1  'Fixed Single
  997.       Caption         =   "Mo"
  998.       BeginProperty Font 
  999.          Name            =   "MS Sans Serif"
  1000.          Size            =   8.25
  1001.          Charset         =   0
  1002.          Weight          =   700
  1003.          Underline       =   0   'False
  1004.          Italic          =   0   'False
  1005.          Strikethrough   =   0   'False
  1006.       EndProperty
  1007.       ForeColor       =   &H0080FF80&
  1008.       Height          =   285
  1009.       Index           =   0
  1010.       Left            =   450
  1011.       TabIndex        =   0
  1012.       Top             =   855
  1013.       Width           =   375
  1014.    End
  1015. Attribute VB_Name = "Calendar"
  1016. Attribute VB_GlobalNameSpace = False
  1017. Attribute VB_Creatable = False
  1018. Attribute VB_PredeclaredId = True
  1019. Attribute VB_Exposed = False
  1020. Option Explicit
  1021. Dim date0, date1, date2, date3 As String
  1022. Dim x, first, tel As Integer
  1023. Private Sub Command1_Click()
  1024. HScroll1.Value = 0
  1025. HScroll2.Value = 0
  1026. date0 = DateAdd("m", HScroll1.Value, Date)
  1027. date1 = DateSerial(Format(date0, "yyyy"), Format(date0, "mm"), 1)
  1028. End Sub
  1029. Private Sub Form_Activate()
  1030. date0 = Date
  1031. Command1_Click
  1032. SetDate
  1033. End Sub
  1034. Private Sub SetDate()
  1035. Label2.Caption = UCase(Format(date0, "mmmm"))
  1036. Calendar.Caption = Format(date0, "             yyyy")
  1037. For x = 0 To 36
  1038. Label3(x).Visible = False
  1039. Label3(x).ForeColor = RGB(0, 96, 64)
  1040. Label3(x).BorderStyle = 0
  1041. Next x
  1042. first = Val(Format(date1, "w")) - 1
  1043. date2 = date1: tel = 0
  1044. For x = first To 36
  1045. date2 = DateAdd("d", tel, date1)
  1046. If DateDiff("m", date1, date2) > 0 Then Exit For
  1047. Label3(x).Caption = Day(date2)
  1048. Label3(x).Visible = True
  1049. tel = tel + 1
  1050. Next x
  1051. If date0 = Date Then
  1052. Label4.Caption = Format(Date, "dddd, dd mmmm yyyy")
  1053. For x = 0 To 36
  1054.     If Label3(x).Caption = Day(Date) Then
  1055.     Label3(x).ForeColor = vbRed
  1056.     Label3(x).BorderStyle = 1
  1057.     Exit For
  1058.     End If
  1059. Next x
  1060. End If
  1061. End Sub
  1062. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  1063. Cancel = True
  1064. Calendar.Left = 2100
  1065. Credits.Show 1
  1066. End Sub
  1067. Private Sub HScroll1_Change()
  1068. date0 = DateAdd("m", (HScroll2.Value * 12) + HScroll1.Value, Date)
  1069. date1 = DateSerial(Format(date0, "yyyy"), Format(date0, "mm"), 1)
  1070. SetDate
  1071. End Sub
  1072. Private Sub HScroll2_Change()
  1073. date0 = DateAdd("m", (HScroll2.Value * 12) + HScroll1.Value, Date)
  1074. date1 = DateSerial(Format(date0, "yyyy"), Format(date0, "mm"), 1)
  1075. SetDate
  1076. End Sub
  1077.